#!/usr/bin/perl

foreach my $i (0 .. 8) {
$beg = $i * 1000;
$end = ($i+1) * 1000;
print "head -n $end http_mp3.txt | tail -n 1000 > ./split3/$i.txt\n";
}
